VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "xlUnitConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public ShowAllTests As Boolean

Public Sub Display()

Dim f As frmConfig

    Set f = New frmConfig
    
    With f
    
        .chkShowAllTestResults = ShowAllTests
        
        .Show
        
        If .exitedOK Then
            ShowAllTests = .chkShowAllTestResults.Value
        End If
    
    End With
    
    Set f = Nothing

End Sub

Public Sub RestoreDefaults()
    ShowAllTests = False
End Sub

Private Sub Class_Initialize()
    RestoreDefaults
End Sub
